Appendix C 
The M-code Interpreter (in Modula-2) 

The document in this section is to be regarded as the definition of the Lilith virtual machine as agreed 
upon by the compiler writers and the hardware team. Casual readers may find this document too concise 
and uncommented. There are other papers which may help one in digesting the contents of this document. 
They are: 

The Personal Computer Lilith' by N. Wirth, ETH report number 40 

Chapter 3 of this manual 

'The Lilith Architecture, its Design in view of Code Generation', 
an unpublished paper by Christian Jakobi. 
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The M-code Interpreter 



N.VIrth, Ch.Jacobi, V.Vinlger 



last modification: facts: Feb. 81; details: 4.1.82 

The following Modula-2 Program Is an extension of the Appendix 1 
In "The Personal Computer Lilith". 

Its purpose is to do docomentation of how we made the actual 
Implementation on the Lilith. It is not used for Introduction. 
It's use Is more a reference what is microprogrammed exactly. 

The undefined opcodes in the Instruction set: 

21B, 334B: reserved for use by the compiler 
214B, 215B: reserved for use for arithmetics 



237B second byte >3 

246B second byte 

<>0 

247B second byte >5 



reserved for floating arithmetics 

reserved for debugging new instructions 

reserved for supporting special hardware, extensions 

reserved for operative system needs 



Table of instructions 





8 


2B 


48 


68 


88 


A8 


C8 


E8 




8 


48 


188 


148 


288 


248 


388 


348 


B e 


LIB 


LLV 


LGV 


LSVB 


LSV 


READ 


FORI 


MOV 


1 1 


LIl 


LLD 


LGD 


LSVl 


LSD 


VRITE 


F0R2 


CMP 


2 2 


L12 


LEV 


LGV2 


LSV2 


Lsoe 


DSKR 


ENTC 


DDT 


3 3 


LIS 


LED 


LGV3 


LSV3 


LXFV 


DSKV 


EXC 


REPL 


4 4 


LI4 


LLV4 


LGV4 


LSV4 


LSTA 


SETRK 


TRAP 


BBLT 


5 5 


LIS 


LLV5 


LGV5 


LSV5 


LXB / 


UCHK 


CHK 


DCH 


6 6 


LI6 


LLV6 


LGV6 


LSV6 


LXV 


ESC 


CHKZ 


UNPK 


7 7 


LI7 


LLV7 


LGV7 


LSV7 


LXD 


SYS 


CHKS 


PACK 


8 18 


LIS" 


LLV8 


LGV8 


LSV8 


DADD 


ENTP 


EOL 


GB 


.9 11 


LI9 


LLV9 


LGV9 


LSV9 


DSUB 


EXP 


NEQ 


GBl 


A 12 


Liie 


LLV18 


LGVie 


LSV18 


OMUL 


ULSS 


LSS 


ALOC 


B 13 


Llll 


LLVU 


LGVU 


LSVll 


DDIV 


ULEQ 


LEO 


ENTR 


C 14 


LI12 


LLV12 


LGV12 


LSV12 




UGTR 


GTR 


RTN 


D 15 


LI13 


LLV13 


LGV13 


LSV13 




UGEQ 


GEO 


CX 


E la 


LI14 


LLV14 


LGV14 


LSV14 


DSHL 


TRA 


ABS 


CI 


F 17 


LI15 


LLV15 


LGV15 


LSV15 


DSHR 


RDS 


NEG 


CF 


IB 28 


LIB 


SLV 


SGV 


SSV8 


SSV 


LODFV 


OR 


CL 


11 21 




SLO 


SGD 


SSVl 


SSD 


LODFD 


XOR 


CLl 


12 22 


LIV 


SEV 


SGV2 


SSV2 


SSDB 


STORE 


AND 


CL2 


13 23 


LID 


SED 


SGV3 


SSV3 


SXFV 


STOFV 


COM 


CL3 


14 24 


LLA 


SLV4 


SGV4 


SSV4 


TS 


STOT 


IN 


CL4 


15 25 


LGA 


SLV5 


SGV5 


SSV5 


SXB-- 


COPT 


LIN 


CL5 


16 26 


LSA 


SLV6 


SGV6 


SSV6 


SXV 


DECS 


MSK 


CL6 


17 27 


LEA 


SLV7 


SGV7 


SSV7 


SXD 


PCOP 


NOT 


CL7 


18 38 


JPC 


SLVe 


S6V8 


SSV8 


FADD 


UADD 


ADD 


CL8 


19 31 


JP 


SLVf; 


SGVg 


SSV9 


FSUB 


USUB 


SUB 


CL9 


lA 32 


JPFC 


SLv:. 


SGV18 


SSV18 


FMUL 


UMUL 


MUL 


CLll 


IB 33 


JPF 


SLv: 


SGVll 


SSVll 


FDIV 


UDIV 


DIV 


CLIB 


IC 34 


JPBC 


SLV:: 


SGV12 


SSV12 


FCMP 


UMOD 




CL12 


ID 35 


JPB 


SLv: 


SGV13 


SSV13 


FABS 


ROR 


BIT 


CL13 


IE 36 


ORJP 


SLv; 


SGV14 


SSV14 


FNEG 


SHL 


NOP 


CL14 


IF 37 


ANDJP 


SLV- 


SGV15 


SSV15 


FFCT 


SHR 


MOVF 


CL15 



Fixed addresses 



dec oct hex 



B 


8 


B 


1 


1 


1 


2 


2 


2 


3 


3 


3 


4 


4 


4 


5 


5 


5 


6 


5 


6 



(F-reglster of module B [software]) 

(ir.uialization flag of module 8 [software]) 

(string pointer of module 8 [software]) 

device mask 

P-rpgister 

saved P register 

boot flag 
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14 
16 
18 

38 
32 



7 free locations 
10 E trap vector 

28 IB Interrupt vector for line 8 (clock) 
22 12 Interrupt vector for line (disk) 

36 IE interrupt vector for line 15 
48 28 data frame table 

(96? entries; firmware allows 256; compiler allows 224) 

free area 



•) 



MODULE Interpreter; 

FROM SYSTEM IMPORT VORO; 

TYPE 

Request - [8. .15]; 

Mask - BITSET; (• 8.. 15 correspond to interrupt lines, 7 to the trap 



CONST 
MILL 

devstatadr 
tic 
dft 



177777B; (•NIL-) 

3; ('devicestatus address*) 

16B; ("trap location adr«) 

40B; ('data frame table adr») 



(•Trap Error Numbers*) 
(, .) 



end 

instrChk 

prioChk 

storageChk 

rangeChk 

addrChk 

realOvfl 

cardOvf 1 

intOvfl' 



8; 
1; 
2; 
3; 
4; 
5; 
6; 
7; 
8; 



(• software assignments: 



funcErr 

halt 

assertErr 



- 9; 
18; 

11; 



•end*) 

•illegal instruction*) 

•priority error*) 

*8torage overflow*) 

*rang9 violation*) 

*NIL access or invalid computed address*) 

*floating point overflow*) 

*cardinal overflow (maskable)*) 

*integer overflow (maskable)*) 



*function return error [software]*) 
*halt called [software]*) 
*assBrt1on error [software]*) 



VAR 






(* the following global variables 


PC: CARDINAL 




IR: CARDINAL 




F 


CARDINAL 




G 


CARDINAL 




H 


CARDINAL 




L 


CARDINAL 




S 


CARDINAL 




P 


CARDINAL 




M 


Mask; ( 


MSK: Mask; ( 


REQ: BOOLEAN; ( 


ReqNo: Request; ( 


o\ 


^erflow: BOOL 


-EA; ; ( 



represent registers in hardware *) 
(•program counter*) 
(*instruction register*) 
(•code frame base address*) 
(*data frame base address*) 
(•stack limit address*) 
(•local segment base address^) 
(•stack pointer*) 
(•process base address^) 
(•software priority mask*) 
(*hardware interrupt mask*) 
(*interrupt request (bit in condition code)*) 
(*request number, 8.. 15*) 
(*overflow (bit in condition code)*) 

(* auxiliary varia' Jes used over single instructions only •) 
i, j, k, ls2, la-, lup, How: CARDINAL; 
fromea, toea ; CARDINAL; (*f ramepointers*) 
b: BOOLEAN; 
Im: BITSET; 

sb, db, sbmd, dbrci, fo, x, y; CARDINAL; ('used in the display handling instrucions*) 
fl, f2: REAL; 

(* data store*) 
stk[B]: ARRAY [8..177777B] OF CARDINAL; 



MODULE InstructionFetch; 
IMPORT F, PC; 
EXPORT next, nextS; 
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VAR code[B]: ARRAY [8..777777B] OF [B..255]; ("Z^IB bytes.) 

(•code[0]. .code[377777B] shares the memory with 6tk») 

PROCEDURE next(): CARDINAL; 
BEGIN 

INC (PC); 

RETURN code[4«F+PC-l] 
END next; 

PROCEDURE next2(): CARDINAL; ('get next two codo bytes>) 
BEGIN 

INC(PC, 2); 

RETURN code[4.F+PC-2]»4e8B + code[4»F+PC-l] 
END next2; 

END InstructionFetch; 

MODULE ExpressionStack; 

EXPORT push, pop, Dpush, Dpop,, empty, 
expStackSize; 

CONST expStackSize - 16; 

VAR sp : CARDINAL; ('expression stack pointer') 

a: ARRAY [8. .expStackSize-1] OF CARDINAL; ('expression stack') 
(• the array x is represented in the hardware as 
a fast LIFO memory •) 

PROCEDURE push(w; CARDINAL); 
BEGIN a[sp] :- w; INC(sp) 
END push; 

PROCEDURE pop(); CARDINAL; 
BEGIN DEC(sp); RETURN(a[sp]) 
END pop; 

PROCEDURE empty():BOOLEAN; 
BEGIN RETURN sp-8 
END empty; 

PROCEDURE Dpush(d; REAL); 

BEGIN a[sp] :- high(d); INC(sp); a[sp] :- 1ow(d); INC(sp) 

END Dpush; 

PROCEDURE Dpop(); REAL; 

BEGIN DEC(sp,2); RETURN pair(a[sp], a[sp+l]) 

END Dpop; 

BEGIN sp ;- 0; 

END ExpressionStack; 

PROCEDURE mark(x: CARDINAL; external: BOOLEAN); ('sets a stack mark') 

VAR i : CARDINAL; 
BEGIN i I- S; 

stk[S] :- x; ir.'(S); ('static link') 

stk[S] :- L; IN (S); ('dynamic link') 

IF external THEN •.tkfs] :- PC+ieeBBBB ('return address and external flag') 

ELSE stk[S] :- PC 

END; 

INC(S,2); ('reseved field for interrupt mask') 

L :- i 
END mark; 

PROCEDURE saveRegs: 
BEGIN 

saveExpStack; 



- L; 

- CARDINAL(M); 

- H+24; 



stk[P ] ;- G; £*.k[P+l] 
Btk[P+23 ;- PC; !='.k[P+3] 
stk[P+4] :- S; f."k[P+5] 
(• stk[P+6] is rriserved for error code •) 
(' stk[P+7] is reserved for error, trap mask •) 
END saveRegs; 

PROCEDURE restoreRegs(changoMask: BOOLEAN); 
BEGIN 
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6 :- stk[P]; F :- stk[G]; 
L :- 8tk[P+13; PC ;- 8tk[P+2]; 
IF changeMask THEN 

M :- MaBk(6tk[P+3]); 

MSK :- M-tMask(8tk[dev8tatadr]) 
END; 

S :- stk[P+4]; H :- 8tk[P+5]-24; 
restoreExpStack; 
END restoreRegs; 

PROCEDURE TransferCchangeMask: BOOLEAN; to, from; CARDINAL); 

VAR j: CARDINAL; 
BEGIN 

j :- stk[to]; saOeRegs; stk[from] :- P; 

P :- j; restoreRegs(changeMask); 
END Transfer; 

PROCEDURE Trap(n: CARDINAL); 
BEGIN 

(• INTEGER, CARDINAL overflow is maskable, but the masking 

need not be programed realy in the procedure trap •) 
IF NOT (n IN ( Mask(stk[P+7])- (Mask({B . . 15})-Mask({cardOvf 1 , intOvf 1})) )) THEN 
stk[P+6] ;- n; 
IF 7 IN Mask(stk[devstatadr]) THEN 

LOOP (• I .) END 
END; 

INCL(stk[devstatadr], 7); 
Transfer(TRUE, tic, tlc+1); 
ELSE ('the trap has been masked") 

(•the value for the expressionstackpointer must be correct") 
END; 
END Trap; 

PROCEDURE eaveExpStack; 

VAR c: CARDINAL; 
BEGIN 

c ;- 8; ("expression stack counter*) 

VHILE NOT emptyO DO 

stk[S] ;- pop(); INC(S); INC(c); 

END; 

stk[S] :- c; INC(S); 
END saveExpStack; 

PROCEDURE restoreExpStack; 

VAR c; CARDINAL; 
BEGIN 

DEC(S); c :- stk[S]; 

VHILE c>8 DO 

DEC(c); DEC(S); push(stk[S]) 

END 
END restoreExpStack; 

PROCEDURE get(N: CARDINAL): CARDINAL; 
BEGIN 

(• i :» input from channel N ") 

RETURN i 
END get; 

PROCEDURE put(x, N: CARDINAL); 
BEGIN 

(• output X to chennel N ") 
END put; 

PROCEDURE readBootFila; 

VAR bootflag: CARDINAL; 
BEGIN 

(• read the boot file according to key and set bootflag •) 

stk[6] :- bootflap 
END readBootFllo; 

BEGIN ("main*) 

stk[5] :- P; ("allows debugging*) 

readBootFile; 

P :- stk[4]; restoreRegs(TRUE); 

LOOP 

IF REO THEN 

("preferable for software; INCL(stk[devstatadr], ReqNo);") 
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Transfer (TRUE, 2 "ReqNo, 2»ReqNo+l); 
END; 

IR :- next(); 
CASE IR OF 

08 .. 17B: ('LIB - LI15 load 1mmed1ate») push(IR MOD 16) | 



2BB: 
21B: 

22B: 
23B: 

24B 
25B 
26B 

27B; 
30B: 

31B: 
32B: 

33B: 
34B: 

35B: 
36B: 



37B: 

40B; 
41B: 

42B: 

43B; 

44B 

60B: 

61B: 

62B: 

63B: 



•LIB load immediate byte*) push(next()) | 

•reserved for future instruction as needed by the compiler*) 
Trtp(in8trChk) | 

•LIV load immediate word*) push(next2()) | 

•LID load immediate double word*) 
push(next2()); push(next2()) | 

•LLA load local address*) push(L+next()) | 

•LGA load global address*) push(G+next()) | 

•ISA load stack address*) 

ush(pop()+next()); 

F overflow THEN Trap(addrChk) END I 

•LEA load external address*) push(stk[dft+next()]+next()) | 

*JPC jump conditional*) 

F pop() - THEN PC :- PC + next2() ELSE INC(PC,2) END | 

*JP jump*) PC :- PC + next2() | 

•JPFC jump forward conditional*) 

F pop() - THEN PC :- PC + next() ELSE INC(PC) END | 

•JPF jump forward*) PC :- PC + next() | 

*JPBC jump backward conditional*) 

F popO - THEN PC :- PC - next() ELSE INC(PC) END 1 

•JPB jump backward*) PC :- PC - next() | 

*ORJP short circuit OR *) 
F pop()-0 THEN INC(PC) 
ELSE push(l); PC ;- PC+next() 

END I . 

*ANOJP short circuit AND •) 

F pop()-0 THEN push(0); PC :- PC+next() 
ELSE INC(PC) 
END I 



*LLV load local word*) 



push(stk[L+next()]) 1 



*LLD load local double word*) 
:- L+next(;; push(stk[i ]); push(stk[i+l]) | 

*LEV load t "iternal word*) 
push(stk[stk;dft+next()]+next()]) | 

*LED load pxternal double word *) 
:- stk[dft'!next()]+next(); 
pu8h(stk[i];; push(stk[i+l]) | 



57B: (*LLV -LLV15*) 
•SLV store local word*) 



push(stk[L + (IR MOD 16)]) | 
8tk[L+next()] :- pop() | 



•SLD store local double word*) 
:- L+nextd; 8tk[i+13 :- pop(); stk[i] 

•SEV store external word*) 
tk[stk[dft+n9xt()]+next()] :- popO | 

*SED store external double word *) 
:- stk[dft+next()]+next(); 
stk[1+13 :- popO; stk[i] :- pop() | 



POPO I 
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64B .. 77B: (•SLV4-SLV15 store local word") 
stk[L+(IR MOD 16)] :- pop() | 

1B8B: ('LGV load global word") push(8tk[G+next()]) | 

101B: ("LGD load global double word*) 

i :- next()+G; push(stk[i]); push(stk[i+l]) | 

102B .. 117B: (•LGV2 - LGV15 load global word") 
push(stk[G + (IR MOO 15)]) | 

120B: ("SCV store global word*) stk[G+next()] :- pop() | 

121B: ("SGD store global double word*) 

1 :- G+nBXt(); stk[1+l] :- pop(); stk[i] :- pop() | 

122B .. 137B: (.SGV2 - SGV15 store global word*) 
stk[G + (IR MOD 16)] :- pop() | 

14BB: ('LSVe load stack addressed word*) 
k :- pop(); 

IF k-NILL THEN Trap(addrChk) 
ELSE 

push(stk[k]) 
END I 

141B .. 157B: ("LSVl - LSV15 load stack addressed word") 
push(stk[pop()+(IR MOD 16)]); 
IF overflow THEN Trap(addrChk) END | 

168B: ('SSVa store stack-addressed word") 
k ;- pop(); j :- pop(); 
IF j-NILL THEN Trap(addrChk) 
ELSE 

stk[j] :- k 
END I . , 

161B .. 177B; (•SSVl - SSV15 store stack-addressed word») 
k :- pop{); 1 ;- pDp()+(IR MOD 16); 
IF overflow THEN Trap(addrChk) 
ELSE 

Btk[1] :- k 
END I 

2086: ('LSV load stack word*) 1 :- pop()+next(); push(stk[i]); 
IF overflow THEN Trap(addrChk) END | 

201B: ('LSD load stack double word*) 

i :- pop()+next(); push(stk[i]); push(stk[1+l]); 

IF overflow ('either addition*) THEN Trap(addrChk) END | 

203B: (*LXFV load indexed frame word*) 
k :- pop() + pop()*4 (*18 bits*); 
push(stk[k]); 
IF overflow(*!8 bits*) THEN Trap(addrChk) END | 

202B: (*LSD0 load ; tack double word*) 

i :- pop(); pijsh(stk[i]); push(stk[i+l]); 
IF (i-NILL) TdEN Trap(storageChk) END | 

204B: ('LSTA load string address •) 
push(stk[G+2j-next()) | 

205B: (*LXB load indexed byte*) 

1 :- pop(); j .- pop(); k :- 8tk[j + (1 DIV 2)]; 
IF overflow 1' ?N Trap(addrChk) 
ELSIF i MOD 2 - e THEN push(k DIV 400B) 
ELSE push(k MOD 400B) 
END I 

206B: ('LXV load indexed word*) 

1 :- pop()+pop(); push(stk[1]); 

IF overflow THEN Trap(addrChk) END | 

207B: (*LXD load indexed double word •) 
1 :- 2*pop()+pop(); 
IF overflow(*add1tion or multiplication*) OR (i-NILL) THEN Trap(addrChk) 
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'! ; 

ELSE '■] ' 

push(stk[i]); push(8tk[i+l]) ] 

END I j 

210B; ('DADD double precision addition*) 

(. fl :- Pop2(): f2 :- Pop2(); Push2(fl+f2) •) | 

211B: ("DSUB double precision subtraction*) 

(. fl :- Pop2(); f2 :- Pop2(); Push2(fl-f2) •) | 

212B; ('DMUL double precision multiplication*) 

(. fl :- FLOAT(Pop()); f2 ;- FLOAT(Pop()) ; Push2(fl*f2) •) | 

213B: ('DDIV double precision division*) 
(* fl :- FLOAT(Pop()); f2 :- Pop2(); 

fl :- f2/fl+rema1nder*. ,; Pu8h2(fl) •) | 

214B, 215B: (*rBserved for future muHiprecision instructions*) 
Trap(instrChk) | 

216B: (*DSHL double precision multiplication by 2*) 
(. fl :- Pop2(); Push2(2.0*fl) •) | 

216B: (*OSHR double precision division by 2*) 
(. fl :- Pop2(); Push2(fl / 2.8) •) | 

2298: ('SSV store stack word*) 

k :- pop(); 1 ;- pop()+next(); 
IF overflow THEN Trap(addrChk) 
ELSE 

stk[i] :- k 
END I 

221B: (*SSD store stack double word*) 

k :- pop(); j :- pop(); i :- pop()+next(); 
IF overflow OR (i-NILL) THEN Trap(addrChk) 
ELSE 

stk[i] :- j; stk[i+l] :- k 
END I 

222B: (*SSDa store stack double word*) 
k :- pop(); j :- pop(); i :- pop(); 
IF i-NILL THEN Trap(addrChk) 
ELSE 

stk[i] :- j; stk[i+l] :- k 
END I 

223B: (*SXFV store indexed frame word*) 

1 :- popO; 

k :- pop() + pop()*4; (*18 bits*) 

IF overflow(*18 bits*) THEN Trap(addrChk) 

ELSE 

8tk[k] ;- i 
END 1 

224B: ('TS test an.l set*) 

i :- pop(); pu8h(8tk[i]); 6tk[i] :- 1 | 

225B: (*SXB store -ndxed byte*) 

k :- pop(); < :- popO: j :- pop() + (i DIV 2); 

IF overflow THEN Trap(addrChk) 

ELSIF i MOD 2 - e THEN stk[j] :- k*48eB + (stk[j] MOD 40BB) 

ELSE «tk[J] :- (8tk[j] DIV 40BB) * 4806 + k 
END I 

226B: (*SXV store -.ndoxed word*) 

k :- pop(); « - pop()+pop(); 

IF overflow THEN Tr8p(addrChk) 
ELSE 

8tk[i] :- k 
END I 

227B! ('SXD store indexed double word*) 

k :- pop(); j :- pop(); i ;- 2*pop()+pop(); 

IF overflow(.multiplication or addition*) OR (i-NILL) THEN Trap(addrChk) 

ELSE 
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»tk[13 :- j; 8tkt1+l] :- k 
END I 

23BB .. 233B: ('FADD - FDIV») 

(• floating point operations •) 

IF overflow (•OR zerodivlde*) THEN Trap(rea10vf 1) END | 

234B: ('FCMP floating compare •) 
fl :- DpopO; f2 :- Opop();. 
IF fl>f2 THEN push(9); push(l) 
ELSIF fl<f2 THEN push(l); push(0) 
ELSE push(e); push(B) 
END I 

235B: ('FABS floating absolute value •) | 

236B: ('FNEG floating negative •) | 

237B: ('FFCT floating functions •) 
1 :- next(); 

IF 1-8 THEN («FLOAT floaf) 
ELSIF 1-1 THEN (•FLOATD float double*) 
ELSIF 1-2 THEN (.FIX fix*) 

(•may cause a floating overflow trap.) 
ELSIF 1-3 THEN (.FIXD fix double.) 

(•ELSIF •) (.lateron additions... •) 

ELSE Trap(lnstrChk) 
END I 

248B: (.READ.) stk[pop()] ;- get(pop()) I 

241B: (.VRITE.) put(pop(), pop()) | 

242B; (•DSKR disk read") 

put(5, 9); (. clr addr .) 

1 :- pop(); 

FOR ,1 .'-1 TO 1+127 DO 

6tk[1] :- get(8); 
END I 

243B: (.DSKV disk write*) 

put(5, 9); (• clr addr •) 

FOR 1 :- 1 TO 3 DO put(B, 8); END; 

put(8A6A6H, 8); 

i :- pop(); 

FOR 1 :- 1 TO 1+127 DO 

put(stk[1], 8); 
END I 

244B: (.SETRK set track.) 

REPEAT k :- get(9) UNTIL 13 IN BITSET(k); 

1 :- pop(); 

put(i DIV 100H, 18); 

put(i MOD leeh, 11) I 

246B: (.ESC) (-esrape.) 
1 :- next() ; 
IF 1-8 THEN 

(.micro junp to high micro ram; used for debugging new instructions.) 
ELSIF 1 IN {1.3} THEN (.printer instructions.) 
ELSE (• free for extensions; now boots, is considered as error .) 
END I 

247B: ("SYS rarely used system functions: dump, boot,... «) 
1 :- next(); 

IF 1-8 THEN 1 :- pop() (• bootstrap the machine from boot #1 ») 

ELSIF 1-1 THEH (. dump •) 

ELSIF 1-2 JHEU pu8h(P) (• read P register .) 

ELSIF 1-3 THEN (. set H register «) 

1 :- pop(); H :- 1-24; Btk[P+5] ;- 1; 

ELSIF 1-4 THEN push(H+24) (• read H register .) 

ELSIF 1-5 THEN push(l) (• version number for 13.2; 1.) 

(•ELSIF 1-... THEN ...•) .(• lateron additions... «) 
ELSE Trap(1n8trChk) 
END I 

25BB: (.ENTP entry priority.) 
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i :■ next(); 

Ira :- ("Mask of 1 bits*) Mask{8. . 1-1}; ('where {0..-1} means {}•) 

IF NOT (Im >- M) THEN Trap(prloChk) 

ELSE 

stk[L+3] :- CARDINAL(M); 

M :- 1m; 

MSK :- Mask(stk[devstatadr])-fW 
END I 

251B: ('EXP exit priority") 
M :•> Mask(8tk[L+3]); 
MSK :- Mask(stk[dev8tatadr])4M | 

25BB: ("TRA coroutine transfer*) 

Transfer(BOOLEAN(next()), pop(), pop()) | 

257B: ('RDS read string*) k ;- pop(); 1 :- next(); 
REPEAT 

stk[k] :- next2(); INC(k); DEC(1) 
UNTIL 1 < I 

260B: ('LODFV reload expression stack after function return*) 
i ;- pop(); restoreExpStack; push(i) | 

261B: (•LODFD reload expression stack after function return*) 

1 :- pop(); j :- pop(); restoreExpStack; push(j); push(i) | 

262B: ('STORE save expression stack*) 
IF S>H-(expStackSize+l) THEN 
PC :- PC-1; 
Trap(storageChk); 
ELSE saveExpStack END | 

2B3B: ('STOFV store expression stack with formal procedure variable on top*) 
i :- pop(); 

IF S>H-(expStackSize+l) THEN Trap(storageChk) 
ELSE 

saveExpStack; 6tk[S] :- 1; INC(S) 
END I 

264B; (*STOT copy from expression stack to procedure stack*) 
IF S>-H THEN Trap(storageChk) 
ELSE 

stk[S] :- pop(); 

INC(S) 
END I 

265B: (*COPT copy element on top of expression stack*) 
i :- pop(); push(i); push(i) | 

266B: (*DECS decre.-nent stackpointer*) 
DEC(S) I 

257B: (*PCOP store^^e allocation and copy for valua parameter *) 
stk[L+next()j :- S; 
Isz :- pop(); k :- S+lsz; 

IF overflow f (k > H) THEN Trap(storag8Chk) 
ELSE 

ladr :- po; . ); 

VHILE ls2>tj DO 

6tk[S] :- 6tk[ladr]; INC(S); INC(ladr); DEC(ls2) 

END 
END I 

270B: (-UADD*) j - pop(); 1 :- pop(); push(i+j); 

IF overflow THEN Trap(cardOvf 1 ) END | 

271B: ('USUB*) j « pop(); 1 :- pop(); pu8h(1-j); 

IF overflow THEN Trap(c8rdOvf 1) END | 

272B: (.UMUL*) j - pop(); 1 :- pop(); push(i«j); 

IF overflow THEN Trap(cardOvf 1) END | 

273B: (*UDIV.) j :- pop(); 1 :- pop(); push(i DIV j); 
IF j-0 THEN Trap(cardOvfl) END I 

274B: (-UMOD*) j ;- pop(); 1 :- pop(); push(1 MOD j); 
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IF j-e THEN Tr«p(cardOvn) END | 

275B: ("ROR") j :- pop(); ('rotate top right by j MOD IB positions*) | 

276B: ('SHL*) j :- pop(); (•shift top left by J MOD 16 positions*) | 

277B: (-SHR*) j :- pop(); (.shift top right by j MOD 18 positions') | 

3886; ('FORI entry forloop •) r \ 

1 :- next(); (• -8: up; OB: down •) / n , \ (, 'Y) I 

lup :- pop(); now :- pop(); ladr :- pop(); {'^ '\fl I '/ ' ' ' 

k :- PC+next2(); '' 

IF ((1-8) AND (now<-1up)) OR 

((108) AND (now>-lup)) THEN (• enter tha for loop •) 
stk[ladr] :- How; 

stk[S] ;- ladr; INC(S); \ 

IF S>-H THEN Trap(6torageChk) 1 

ELSE \ __ 1 

stk[S] :- lup; INC(S) \,^' \ 

END „.___— 

ELSE (• dont execute the for loop •) .. O: ' 

PC ;- k 
END I 

301B: (•F0R2 end forloop •) 

lup :- stk[S-l]; ladr :- 8tk[S-2]; , --- i 

Isz :- INTEGER(next()); (• range -128.. +127 ') 

k :- PC+next2(); 

1 :- 6tk[ladr]+l8z; 

IF overflow OR ((l6z>-a) AND (1>lup)) 

OR ((lsz<-8) AND (Klup)) ' 
THEN (• termination •) 

DEC(S.2) 
ELSE (• continuation of the loop •) 

8tk[ladr] :- 1; 

PC :- k 
END J 

382B; ('ENTC entry to a case statement*) 
PC :- PC+next2(); 
k :- pop(); 

How :- nBxt2(); lup :- next2(); 
stk[S] :- PC+2.(lup-now)+4; 
IF S>-H THEN Trap(storageChk) 
ELSE 

IF (k >- How) AND (k <- lup) THEN 

PC :- PC+2.(k-llow+l) 
END; 

PC :- PC+next2() 
END I 

303B: ('EXC exits «, case statement*) 
DEC(S); PC :- 8tk[S] | 

384B: (.TRAP*) 

1 :- pop(); Trap(1 MOD 18) | 

245B, 385B: ('UCHK, CHK check j <- 1 <- k *) 

k :- pop(); j - popO; 1 :- pop(); push(i); 
IF (Kj) OR (:>k) THEN Trap(rangeChk) END | 

386B: (tCKKZ check 1 <- k •) ('CARDINAL*) 
k :- pop(); 1 - pop(); push(1); 
IF 1>k THEN Trap(rangeChk) END | 

3878: ('CKKS check sign bit*) 
k :- pop(); push(k); 
IF INTEGER(k)<8 THEN Trap(rangeChk) END | 

318B: C'EOL.) j ;- pop(); 1 :- pop(); 

IF 1 - j THEN push(l) ELSE push(B) END I 

311B: (*NEQ*) j :- pop(): 1 :- pop'O; 

IF 1 # j THEN push(l) ELSE push(8) END | 

312B, 252B: (*LSS. ULSS*) j :- pop(); i :- pop(); 
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IF 1 < j THEN pu6h(l) ELSE pu6h(B) END | 

313B, 253B: ('LEQ, ULEQ") j :- pop(); i :- pop(); 

IF 1 <- j THEN push(l) ELSE push(0) END | 

314B, 251B: (•GTR, UGTR.) j :- pop(); 1 :- pop(); 

IF 1 > j THEN push{l) ELSE push(0) END j 

315B, 255B: ('GEO, UGEQ") j :- pop(); 1 :- pop(): 

IF 1 >- j THEN push(l) ELSE push(8) END 1 

316B: ('ABSO 1 :- pop(); push(ABS(INTEGER(1))); 

IF l-ieeeeeB then Trap(lntOvtl) END I 

317B; ('NEG.) 1 :- pop(); push(-INTEGER(1)); 

IF 1-1808806 THEN Trap(1ntOvtl ) END | 

32BB: (•0R») j :- pop(); 1 :- pop(); (• k :- 1 OR j •) push(k) | 

321B: (-XOR.) j :- pop(); 1 :- pop(); (• k :- 1 XOR j •) push(k)| 

322B: (.AND.) j :- pop(); 1 :- pop(); (• k :- 1 AND j •) push(k)| 

323B: (.COM.) push(-pop()-l) | 

324B: (.IN.) j :- pop(); 1 :- pop(); (• k :- 1 IN j; gives FALSE if k>15 .) push(k) 

325B: (.LIN load immediate NIL •) push(NILL) | 

326B: (.MSK.) j :- pop(); (• k :- mask with j MOD 16 ones .) push(k) | 

327B: (.NOT.) 1 :- pop(); (» 1 :- NOT i .) ('boolean: 0<->l.) push(i) 1 
(• current implementation: 
b :- BITSET(pop()); 

IF 15 IN b THEN EXCL(b, 15) ELSE INCL(b, 15) END; 
push(CARDINAL(b)) «) 

330B: (.ADD.) j :- pop(): 1 :- pop(); push(1+j); 

IF overflow THEN Trap(intOvf 1) END | 

331B: (.SUB.) j :- pop(); 1 :- pop(); push(i-j); 
IF overflow THEN Trap(lntOvfl) END | 

332B: (.MUL.) j :- pop(); i :- pop(); push(i.j); 

IF overflow THEN Trap(1ntOvf 1) END i 

333B: (.DIV.) j :- pop(); 

i :- pop(): push(i DIV j); 

IF (j-B) OR ((j — 1) AND (1—32768)) THEN Trap(intOvf 1 ) END | 

334B: (.reserved for future instruction as needed by the compiler.) 
Trap ( Inst rChk) | 

335B: (.BIT.) j :- pop(); (« k :- {j MOD 16} •) push(k) | 

336B: (.NOP.) | 

337B: (.MOVF move frame .) 
1 :- pop(); 

fromea :- pop()+pop().4; (.18 bits*) 
toea :- pop()+pop().4; (.18 bits.) 
IF overflow('18 bits.) THEN Trap(addrChk) 
ELSE 

VHILE 1>9 DO 

stk[toea1 :- 8tk[fromea]; INC(toea); INC(fromea); DEC(i) 

END 
END I 

348B; ("MOV move block*) 

k :■ pop(); 3 :- pop(); 1 i- pop(); 

IF (j-NILL) OR overflow(.on i+k") THEN Trap(addrChk) (.source may wrap around.) 

ELSE 

VHILE k>8 DO 6tk[i] :- st|^[j]; INC(i); INC(j); DEC(k) END 
END I 

341B: (.CMP compare blocks*) 

k ;- pop(); j :- pop(); 1 :- pop(); 
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IF overflow (• on either: j-«k or 1+k») THEN Trtp(«ddrChk) 

ELSIF k-B THEN push(0); push(e) 

ELSE 

VHILE(8tk[1] / 8tk[j3) AND (k > B) DO 
INC(1); INC(j); DEC(k) 

END; 

push(stk[1]); push(8tk[j]) 
END I 



342B: ('DDT display dot*) 



pop(); 1 :- pop() 



y :» pop(); x :- pop(); dbmd 

(• display point at K,y 
according to the mode i 
inside the bitmap described at dbmd 
may cause a TrapCaddrChk) •) | 

3438: ('REPL replicate pattern •) 

db :- pop(); sb :- pop(); dbmd :- pop(); 1 
(• replicate the pattern at sb 
over the block described at db 
Inside the bitmap described at dbmd 
according to the mode 1 
may cause a Trap(addrChk) •) | 



pop() 



344B: ('BBLT bit block transfer*) 

sbmd :- pop(); db :- pop(); sb :- pop(); 
(• transfer the block described at sb 
Inside the bitmap described at sbmd 
to the block described at db 
inside the bitmap described at dbmd 
according to the mode 1 
may cause a Trap(addrChk) •) | 



dbmd ;- pop(); 1 :- pop() 



pop(); dbmd :- pop() 



345B: ('DCH display character*) 
j :- pop(); db :- pop(); fo 
(* convert the character j 

f,rom the font stored at fo 

to the block described at db 

inside the bitmap described at dbmd 

may cause a Trap(addrChk) •) | 

346B; ('UNPK unpack*) | 

347B: ('PACK pack*) | 

350B: {*GB get base adr n levels down*) 
1 :- L; j :- next(); 
REPEAT 

1 :- stk[i]; DEC(j) 
UNTIL j-B; 
push(i) I 

351B: ('GBl get base adr 1 level down*) push(stk[L]) | 

352B: (*ALLOC allocate block*) 

1 ;- pop(); p.sh(S); S :- S + 1; 

IF overflow D- (S > H) THEN S :- pop(); Trap(storageChk) END | 

353B: ('ENTR enter procedure*) 
1 :- next(); S :- S + 1; 
IF overflow Q (S > H) THEN S :- S - 1; Trap(storagoChk) END | 

354B: (*RTN returr from procedure*) 

S :- L; L :- vtk[S+l]; 1 :- stk[S+2]; 

IF 1 < B 

THEN (* exter al *) 

G :- stk[S] 

F :- stk[Gl; 

PC :- 1 - UiBBBBB; 
ELSE (• local *) 

PC :- 1; 
END I 

355B: (*CX call exiernal procedure*) 
j ;- next(); 1 :- next(); 
mark(G, TRUE); 
G ;- stk[dft+j3; 
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F :- stk[G]; 

PC :- 2»1; PC :- next2() | 

356B: ("CI call procedure at Intermodlato level*) 
1 :- next(); iiiark(pop(), FALSE); 
PC :- 2«1; PC :- ne)(t2() | 

357B: ('CF call formal procedure*) 
k :- 6tk[S-l]; 
mark(6, TRUE); 



- k DIV 4886; 
stk[dft+j]; 
6tk[G]; 



PC :- 2»(k HOD 4B0B); PC :- next2() | 

36BB: ("CL call local procedure*) 
i :- next(); niark(L, FALSE); 
PC :- 2*1; PC :- next2() | 

361B .. 377B: ('CLl - CL15 call local procedure*) 
mark(L, FALSE); 
PC :- 2*(IR MOD 16); PC :- next2() 

ELSE Trap(instrChk) 
END 
END ('LOOP*) 
END Interpreter, 



Appendix D 
The M-code Interpreter (microprogram) 

The listing for the M-code interpreter in microcode is found on the standard software release disk under 
the name: intl3dot2.*. The full listing of tills program will not be printed in preliminary versions of tliis 
manual. 



